﻿Imports DAO
Imports DTO
Public Class NhanVienBUS
    Public Function ThemNhanNhanVien(ByVal strSQL As NhanVienDTO) As Integer
        Dim dao As New NhanVienDAO()

        Return dao.ThemNhanVien(strSQL)

    End Function
    Public Function LayNhanVien() As List(Of NhanVienDTO)
        Dim dao As New NhanVienDAO()

        Return dao.LayNhanVien()

    End Function
    Public Function update(ByVal nvDTO As NhanVienDTO) As Integer
        Dim capnhat As New NhanVienDAO()
        Return capnhat.update(nvDTO)
    End Function
    Public Function xoanhanvien(ByVal MaNV As Int32) As Boolean
        Dim xoa As New NhanVienDAO()
        Dim flag As Boolean = False

        If xoa.xoanhanvien(MaNV) > 0 Then
            flag = True
        End If
        Return flag
    End Function

End Class
